home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / cuj9204.zip / 1004092B < prev    next >
Text File  |  1992-06-02  |  543b  |  47 lines
  1.  
  2. main()
  3. {
  4.     node n;
  5.  
  6.     n.value.d = 9.87;
  7.     n.type = Double;
  8.     push(n);
  9.  
  10.     n.value.s = "some text";
  11.     n.type = String;
  12.     push(n);
  13.  
  14.     n.value.i = 123;
  15.     n.type = Int;
  16.     push(n);
  17.  
  18.     n.value.c = 'A';
  19.     n.type = Char;
  20.     push(n);
  21.  
  22.     while (n = pop(), n.type != Error) {
  23.  
  24.         switch (n.type) {
  25.  
  26.         case Char:
  27.             printf("Char = %c\n", n.value.c);
  28.             break;
  29.  
  30.         case Int:
  31.             printf("Int = %d\n", n.value.i);
  32.             break;
  33.  
  34.         case Double:
  35.             printf("Double = %f\n", n.value.d);
  36.             break;
  37.  
  38.         case String:
  39.             printf("String = %s\n", n.value.s);
  40.             break;
  41.         }
  42.     }
  43.  
  44.     return 0;
  45. }
  46.  
  47.